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This month we are beginning a series of articles describing a 
Gouble-precision decimal arithmetic package for Applesoft. 
Imagine 18-digit arithmetic with none of the screwy rounding 
errors we are used to seeing in Applesoft's binary arithmetic. 


You will also find quick looks at the new Apple //c and a 
forthcoming set of revised ROMs for the //e. We finally have 
the solution to a three-year-old mystery! You old-timers might 
remember that in August of 1981 we published a peculiar little 
“what does this code do?” item from John Broderick. Well he 
has revealed answer at long last. 


Oops ! 


There are a couple of bugs in the Intellec Hex Converter we 
published last month. To correct the program you should delete 
line 2240 (the INY) and add a LDA #0 at line 2285. That will 
take care of it! Our thanks to Chaim Palman, of Calcomp, for 
pointing out the problems. 


Random Numbers for Applesoft......eeeeeee-eBOb Sander~Cederlof 


The RND function in apa is faulty, and many periodicals 
have loudly proclaimed its faults. "Call APPLE", Jan 83, pages 
29-34, tells them in “RND is Fatally Flawed", and presents an 
alternative routine which can be called with the USR function. 


First, the flaws: 1) the initialization code fails to preset 
all five bytes of the seed value (only the first four of five 
are loaded); 2) the RND code uses a poor algorithm, and depends 
on “tweaks" to make the numbers more random; 3) the RND code 
does not properly implement the algorithm it appears to be 
aiming at. 


BAD INITIALIZATION. The initialization code is at $F150 in the 
Applesoft ROMs. This loop moves the CHRGET subroutine down to 
$B1-C8, and is also supposed to copy the random number seed 
into $C9-CD. The last byte does not get copied, due to a bug. 
Changing $F151 from $1C to $1D would fix it. Most of us don't 
really care about this bug, because we are trying to get random 
numbers for games and the like, and the more random the better: 
not copying the last byte could make the numbers generated a 
little more random from one run to the next. However, some 
applications in simulation programs require REPEATABLE 
sequences of random numbers, so the effect of model changes can 
be seen independent of the random number generator. 


POOR ALGORITHM. Most generators usSe an algorithm which makes 
the next random number by multiplying the previous one by a 
constant, and adding another constant. The result is reduced 
by dividing by a third constant and saving the remainder as the 
next random number. More on this later. The proper choice of 
the three constants is critical. I am not sure whether the 
Applesoft authors just made poor choices, or whether the bugs 
mentioned below drove them to tweaking. Tweaking the generated 
value is often thought to produce even more random results. In 
fact, according to authorities like Donald Knuth, they almost 
always ruin the generator. Applesoft tweaks the generated 
value by reversing the middle two bytes of the 32-bit value. 
Guess what: it ruins the generator, assuming it was good to 
start with. 


BUGGY ALGORITHM. The congruency algorithm described in words 
above will only work properly when integer arithmetic is used. 
Applesoft uses floating point arithmetic. Further, Applesoft 
arithmetic routines expect five-byte operands. For some reason 
the constants used in RND are only four bytes long each. It 
appears that the exponents may have been omitted, in the 
expectation that integer arithmetic was going to be used. You 
can see the code for RND at SEFAE. 


If you want to see some non-random features using RND, type in 
and RUN the following progran: 


10 HGR:HCOLOR=3 

20 X=RND(1) *280: Y=RND(1) *160 
30 HPLOT X,Y 

40 GO TO 20 
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Ss-Cc Macro Assembler Version 1 0. e@eeeeseoeeeeee ‘ @eseeeeoeeeseeens,seeeeoae@eseneenenese @ $80 
S-C Macro Assembler Version 1. 1 eeeeoeaeoeoeuv voeeoeeoeeeeoeeeesoeeseeeeeeseevee@e~eetesneesd $92. 50 
Version 1.1 Update....ceseccccsseee e bod ele ae ed Oe eo See Oe ew aw Serle. 50 
Source Code for Version 1.1 (on two disk SIGES) .cccccccscccccsccscsevs GL 00 
Full Screen Editor for S-C Macro (with complete source code) .......e..-949 
S-C Cross Reference Utility (without source code).....ccccccccccceveee9s0 
S-C Cross Reference Utility (with complete source code) ...cccccsecveeee $50 
DISASM Dis~Assembler (RAK—-Ware) e@@eeeeoee4eeseeeeseveeeveeeeeeeveeeeesowescp7eeoaeeeeea~ded @ $30 
Sou rce Code for DISASM. eeeeeoeeveeeeeeeeeeeeeeeeeeonevoeeweeeseoeee additional $30 


S-C Word Processor (with complete source Code)... cccccvcccccevecececses D0 
Double Precision Floating Point for Applesoft (with source code)......$50 
S-C Documentor (complete commented source code of Applesoft ROMs).....$50 
Source Code of //e CX & FB8 ROMS on O16 65 65404 o 6 Ge hwo we eee OLD 


(All source code is formatted for S-C Macro Assembler Version 1.1. Other 
assemblers require some effort to convert file type and edit directives.) 


AAL Quarterly Di GK Se b-3 6-6 6-6 670% owe OW ew OW we ew ew ee oe oe BeCn $15 

Each disk contains all the source code from three issues of “Apple 
Assembly Line", to save you lots of typing and testing time. 
QD#1: Oct-Dec 1980 QD#2: Jan-Mar 1981 QD#3: Apr-Jun 1981 
QD#4: Jul-Sep 1981 QD#5: Oct-Dec 1981 QD#6: Jan-Mar 1982 
QD#7: Apr-Jun 1982 QD#8: Jul-Sep 1982 QD#9: Oct-Dec 1982 
QD#10: Jan-Mar 1983 QD#11: Apr-Jun 1983 QD#12: Jul-Sep 1983 
QD#13: Oct-Dec 1983 QD#14: Jan-Mar 1984 


OBJ.APWRT][F (Don Lancaster, SynergeticsS) ....cccccccccccccccsceccacsesee 930 
Quick-Trace (Anthro=Digital) sccscssctvesessvoissevvcceesvee (TEC. $50) $45 
Visible Computer: 6502 (Software Masters) ....cccccccccccee (rege $50) $45 
ES~-CAPE: Extended S-C Applesoft Program EGitoOr ceccccccccccccccccccee ce 900 
Amper-Magic (Anthro -Digital) ossesesewvecsus swecesevdses eee « (LEG. $75) $65 
Amper-Magic Volume 2 (Anthro-Digital) ..cccccccccccccevccce (Le $35) $30 
Routine Machine (Southwestern Data Systems) .....cccccsee (LEG. 864. 95) $60 
FLASH! Integer BASIC Compiler (Laumer ReSearch) .cccccccccccccccvccccceesl9 
Fontrix (Data TEANS £ OF ME) 6a ik: o-0 0-05 ROK HOS ww 9 Ea wee wees 1D 
Aztec C Compiler System (Manx Software) .cccccceccevccsees (rege $199) $180 
IACcalc Spreadsheet PLOGIAMeeecessececcescccccccesesees (LEGe $84.95) $75 
The one we use every day. It's better than Visicalc! 
Locksmith 5.0 (Omega MiCroWare) ...cccecccccccevevccscee (reg. $99.95) $90 


Blank Diskettes (Verbatim) ........2.e.2.90 each, or package of 20 for $45 
(Premium quality, single-sided, double density, with hub rings) 

Vinyl disk pages, 6"x8.5", hold two disks each... .ccccccccccceceee 10 for $6 
Diskette Mailing Protectors (hold 1 or 2 disksS)........+..+-40 cents each 

or $25 per 100 

These are cardboard folders designed to fit into 6*°X9" Envelopes. 

Envelopes for Diskette MailerS.....cccccccccccvcccceccsecee 6 Cents each 
ZIF Game Socket Extender (Ohm ElectronicsS) .cccccccccccccscecsccscvcseseegsU 


Books, BookS, BOOKS... .ccccccccccccccecccvcseeescompare Our discount prices! 
"Apple j)[ Circuit DesScription", Gayler...cccccccccccccee ($22.95) $21 
“Understanding the Apple II", Sather...ccccccccccccsccce ($22.95) $21 
"Enhancing Your Apple II, vol. 1", Lancaster.....eceeeee ($15.95) $15 

Second edition, with //e information. 
“Incredible Secret Money Machine", LancaSteLr.ccccccccccee ($1095) $7 
“Beneath Apple DOS", Worth & LeEChne€r..cccccccccvecveccsee (919.95) $18 
“Bag of Tricks", Worth & Lechner, with diskette........-($39.95) $36 
“Assembly Lines: The Book", Roger Wagnereccceccccccccccce (919.95) $18 
“What's Where in the Apple", Second Edition...c.cccccesee($24.95) $23 
“What's Where Guide" (updates first edition) ...ccccccceece ($9.95) $9 
“6502 Assembly Language Programming", Leventhal......... ($18.95) $18 
"6502 Subroutines", Leventhal isecscivtecevccncieeceeneews (517.95) $17 
“Real Time Programming -- Neglected Topics", Foster...... ($9.95) $9 


We have small quantities of other great books, call for titles & prices. 
Add $1.50 per book for US shipping. Foreign orders add postage needed. 


#** S-C SOFTWARE, P. O. BOX 280300, Dallas, TX 75228 *** 
aks (214) 324-2050 wees 
*** We accept Master Card, VISA and American Express *** 
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Yeu will see the Hi-Res screen being sprinkled with dots. 

After about seven minutes, but long before the screen is full, 
new dots stop appearing. RND has looped, and is replotting the 
same sequence of numbers. Another test disclosed that the 
repetition starts at the 37,758th “random” number. 


Mathematicians have developed many sophisticated tests for 
random number generators, but Applesoft fails even these simple 
ones! Depending on the starting value, you can get the 
Applesoft generator in a loop. You never get anywhere near the 
theoretically possible 4 billion different values. 


The Call APPLE article proposes a new algorithm. It comes with 
impressive claims and credentials, but I have not found it to 
be better than a properly implemented congruential algorithm. 
The algorithm multiplies the previous seed by 8192, and takes 
the remainder after dividing by 67099547. This is a congruency 
algorithn: 


X(n+1) = ( a * X(n) + Cc ) mod m 
with a=8192, c=0, m=67099547 


I re-~implemented the Call APPLE algorithm, and my listing 
follows. The Call APPLE version would not quite fit in page 3, 
but mine does with a little room to spare. I also dug into 
some other references and came up with another algorithm, from 
Knuth. It is also a congruency, but with a=314159269, 
c=907633386, and m=2°32. This turns out to be easier to 
compute, and according to Knuth it should be “better”. 

“Better” is in quotes because it is really hard to pin down 
what are the most important properties. Anyway this one should 
have very good characteristics. 


The RND function does three different things, depending on the 
argument. You write something like R=RND(X). If X=0, you get 
the same number as the previous use of RND produced. If X<0, 
the absolute value of X becomes the new seed value. This 
allows you to control the sequence when you wish, and also to 
randomize it somewhat by using a “random” seed, If X>0, you 
get the next random number. The value will always be a 
positive number less than 1. If you want to generate a number 
in a range, you multiply by the width of the range and add the 
starting value. For example, to generate a random integer 
between 1 and 10: 


R = INT( RND(1)*10 ) + 1 


The programs I have written build a little on the options 
available with RND. They all begin with a little routine which 
hooks in the USR vector. After executing this, you can write 
R=USR(X), in other words substitute USR(X) anywhere you would 
have used RND(X). But I have added, following the Call APPLE 
article, the option to automatically generate integers in a 
range based at 0. If 0O<X<2, you will get the next random 
fraction. If X is 2 or greater than 2, you will get a random 
integer between 0 and X-l1. Thus you can make a random integer 
between 1 and 10 like this: 
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R = USR(10) + 1 
as well as with: 
R = INT (USR(1)*10) + 1 


I wrote a third program which makes a 16-bit random value. 

This one uses the seed at $4E and $4F which the Apple 
increments continuously whenever the standard monitor input 
loop is waiting for an input keystroke. Integer BASIC uses 
this seed, and as a result is quite valuable in writing games. 
My new program gives you all the options stated above, and is 
significantly quicker than any of the others. It uses a=19125, 
c=13843, and m=2°16 in a standard congruency algorithm. 


If you are seriously interested in random numbers, you need to 
read and study Donald Knuth. Volume 2 of his series "The Art 
of Computer Programming” is called “Seminumerical Algorithms". 
Chapter 3, pages 1-160, is all about random numbers. (There is 
only one other chapter in this volume, all about arithmetic in 
nearly 300 pages!) Knuth started the series back in the 60's, 
with the goal of seven volumes covering most of what 
programmers do. He finished the first three by 1972, went back 
and revised the first one, and then evidently got sidetracked 
into typesetting (several books around a typesetting language 
he calls °Tex”). 


Speaking of being sidetracked...! 


Knuth ends his chapter with a list of four rules for selecting 
a, c, and m for congruency algorithms. Let me summarize those 
rules here: 


1. The number m is conveniently taken as the word size. 
In Applesoft, the floating point mantissa is 32 bits; 
hence, I chose m=2°32. 


2. If mis a power of 2 (and mine is), pick “a” so that 
“a mod 8 = 5%. This, together with the rules on choosing 
c below, ensure that all m values will produced before the 
series repeats. 


3. Pick "a" between m/100 and m-sqrt(m). The binary 
digits should NOT have a simple, regular pattern. Knuth 
recommends taking some haphazard constant, such as 
a=3131492621. 


4. “c" should be odd, and preferable near 
“m*.2113248654". 


Now for the program listings. 


The first listing is for my rendition of Call APPLE's 
algorithm. Lines 1220-1280 link in the USR vector. Lines 
1370-1450 branch according to the value of the argument of the 
USR function. If the argument is negative, lines 1550-1620 set 
up its absolute value as the new seed. If the argument is 
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zero, the old seed is used without change, lines 1420-1450. If 
positive non-zero, lines 1470-1490 set up the argument as the 
RANGE. 


Lines 1640-1690 calculate the new seed, which will be 8192 

times the old seed, modulo 67099547. 8192 is 2°13, so we can 

multiply be 13 left shifts. After each shift, if the result is 

bigger than 67099547, we subtract that value and keep the 

eace The final result will be some number smaller than 
47. 


Lines 1700-1770 save the new seed, and then divide it by 
67099547 to get a fraction for the USR function result. Lines 
1780-1860 check the initial argument to see if you wanted a 
fraction between 0 and 1, or an integer between 0 and arg-l. 
If the latter, the fraction is multiplied by the range and 
reduced to an integer. 


The subroutine named MODULO subtracts 67099547 from the seed 
value if it would leave a positive remainder, and then 
renormalizes the result into floating point. 


Line 2270 defines the initial seed after loading the program to 
be 1.0. If you want some other seed, change this line or be 
sure to seed it with R=USR(-seed) in your Applesoft program. 


1000 Senn nwn nnn ow ewww mw emw www wow ooowo] 
Too SSAVE S.USRND S-C 
7 M ® FROM CALL APPLE, JAN 1983, PAGE 29-34 
1050 -OR $300 
1000 # ~TF B.USRND 
1070 Semen e scene mmm emwwwe momo woowoone 
E82E- 1080 NORMALIZE.FAC EQ $E82E 
EQ7F- 1090 FMUL.FAC.BY.YA EQ $E97F 
ESE3- 1100 LOAD. ARG.FROM.YA -EQ $E9E3 
EA5C- 1110 FDIV. ~BY.YA ~EQ $EA5C 
EAF9- 1120 LOAD.FAC.FROM.YA -EQ $EAF 
EB2B- ao STORE.FAC.AT.YX.ROUNDED .EQ $EB2B 
EB66- 1140 COPY.FAC.TO.ARG EQ $EB6 
EC23- via AS. INT -EQ $EC23 
OOOA- AG USER .VECTOR -EQ $0A THRU 30C 
009D- 1180 FAC -EQ $9D THRU $A2 
00A5-=- ape CNTR -EQ $A5 
0300- AQ AC 1220 LINK LDA #$4C "JMP"® OPCODE 
0302= 85 OA et STA USER.VECTOR 
0304- AQ OD 1240 LDA #RANDOM 
0306- 85 OB 1270 STA USER .VECTOR+1 
0305- he 0 1260 LDA /RANDOM 
O30A- 85 0 tee STA USER .VECTOR+2 
030C- 60 1280 RTS 
1290 Smowmwmwn mmo ee ow ewww wwe en wwe nen 
1300 # R = USR (X) 
1310 ® IF X < 0 THEN RESEED WITH ABS(X) 
1320 ® IF X = 0 THEN R = REPEAT OF PREVIOUS VALUE 
1380 : IFQ<X<2 ae he NEXT SEED AND RETURN 
1320 sd IF X >= 2 THEN R = INT(RND®X) 
1360 Sennen nnn eenen em mew nw we mmm oon ne 
1370 RANDOM 
030D- A5 A2 1380 LDA FAC.SIGN CHECK FOR RESEEDING 
0311=- A5 9D 1400 LDA FAC CHECK FOR X=0 
0315=— AQ AE 1420 LDA #SEED 
0317=- AO 03 ee LDY /SEED 
0319= 20 E3 E9 1440 JSR LOAD. ARG.FROM.YA 
031C- 4c 55 03 1450 JMP .5 
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—----~----------------- APPLE SOFTWARE ----------------------- 


NEW!!! FONT DOWNLOADER & EDITOR ($39.00) 

Turn your printer into a custos typesetter. Downloaded characters resain active while printer is powered. Can be used 
with every word processor capable of sending ESC and control codes to the printer. Switch back and forth easily between 
Standard and custoa fonts. All special printer functions (like expanded, compressed, eaphasized, underlined, etc.) apply 
to custoa fonts. Full HIRES screen editor lets you create your own custos characters and special graphics syebols. 
Coapatible with many ‘duab’ & ‘seart’ printer I/F cards. User driver option provided. Specify printer: Apple Dot Matrix 
Printer, C.Itoh B510A (Prowriter), Epson FX-80/100 or OkiData 92/93. 


DISASM 2.2e - AN INTELLIGENT DISASSEMBLER ($30.00) 

Investigate the inner workings of eachine language prograas. DISASM converts 6502 aachine code into seaningful, syabolic 
source. Creates a standard DOS 3.3 text file which is directly compatible with DOS ToolKit, LISA and S-C (4.0 and MACRO) 
asseablers. Handles data tables, displaced object code & even lets you substitute your own meaningful labels. (100 
coasoniy used Monitor & Pg Zero pg naaes included.) An address-based cross reference table provides further insight into 
the inner workings of aachine language prograas. DISASM is an invaluable eachine language learning aid to both the 
novice & expert alike. SOURCE code: $60.00 


S-C ASSEMBLER (Ver4.0 only) SUPPORT UTILITY PACKAGE ($30.00) 
# SC.XREF - Generates a GLOBAL LABEL Cross Reference Table for complete docusentation of source listings. Foraatting 
control accosodates all printer widths for best hardcopy outputs. # SC.G6SR - Global Search and Replace eliainates 
teadious anual renasing of labels. Search all or part of source. Optional proaptinag for user verification. # SC. TAB - 
Tabulates source files into neat, readable fore. SOURCE codes $40.00 


~-------------------- HARDWARE /FIRMWARE --------------------- 


THE °“PERFORMER’ CARD ($39.00) 

Plugs into any Apple slot to convert your ‘duab’ centronics-type printer I/F card into a ‘saart’ one. Comeand eenu 
provides easy access to printer fonts. Eliainates need to remeaber coaplicated ESC codes and key thea in to setup 
printer. Added features include perforation skip, auto page nuabering with date & title. Also includes large HIRES 
graphics screen duap in noraal or inverse plus full page TEXT screen duap. Specify printer: Epson MX-80 with 
Graftrax-80, MX-100, MX-80/100 with GraftraxPlus, NEC B0923A, C.Jtoh 8510 (Prowriter), Okidata 82A/B3A with Okigraph & 
OpkiData 92/93. Oki bonus: print EMPHASIZED & DOUBLE STRIKE fonts’ GOURCE code: $30.00° 


FIRMWARE FOR APPLE-CAT: The ‘MIRROR’ ROM ($25.00) 

Comaunications RON plugs directly inta Novation‘’s Apple-Cat Modea card. Three basic sodes: Dusb Terainal, Reaote Console 
& Programaable Modes. Added features include: selectable pulse or tone dialing, true dialtone detection, audible ring 
detect, ring-back option and built-in printer buffer. Supports aost 80-coluan displays and the i-wire shift key aod. 
Uses a superset of Apple's Coma card and Microaodea I] commands. A-C hardware differences prevent 1002 compatibility 
with Coan card. SOURCE codes $60.00 


RAM/ROM DEVELOPMENT BOARD ($30.00) 

Plugs into any Apple slot. Holds one user~supplied 2Kx8 aesory chip. Use a 6116 type RAM chip for prograa developaent or 
just extra aeaory. Plug in a preprograased 2716 EPROM to keep your favorite routines ‘on-line’. A versatile board with 
gany uses' Maps into $Cn00-CnFF and $CG00-CFFF aemory space. Circuit diagrae included. 


NEW!!! SINGLE BOARD COMPUTER KIT ($20.00) 

Kit includes etched PC board (with solder eask and plated thru holes) and asseably instructions. User provides 6502 CPU, 
6116 2K RAM, 6821 dual 68-bit I/0 and 2732 4K EPROM plus aisc comeon parts. Originally designed as intelligent printer 
interface - easily adapted to aany applications needing dedicated controller. (Assembled and tested: $119.00) 


All asseably language SOURCE code is fully coseented & provided in both S-C Asseabler & standard TEXT foreats on an 
Apple DOS 3.3 diskette. Specify your systea configuration with order. Avoid a $3.00 postage and handling charge by 
enclosing full payment with order (MasterCard & VISA excluded). Ask about our products for the VIC-20 and Coasodore 64! 


RAK -~-WARE 
41 Ralph Road West Orange NJ 07052 (201) 325-1885 
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1460 #---X --> RANGE----~--- 
O31F- A2 AQ 1470 1 LDX #RANGE 
0321- AO 03 14.80 LDY /RANGE 
0323- 20 2B EB 1490 JSR STORE.FAC.AT.YX.ROUNDED $EB2B 
1500 #---SEED --> FAC--------------——— 
0326=- A9 1510 LDA #SEED 
0328- AO 03 1520 LDY /SEED 
032A- 20 FO EA 1330 JSR LOAD.FAC.FROM.YA $EAF9 
1540 @---PREPARE SEED---~----—-------~ 
032D- AQ 00 1390 2 LDA #0 MAKE SEED POSITIVE 
032F- 85 A2  ~—-: 1560 STA FAC.SIGN 
0331- 5 9D 1570 LDA FAC LIMIT SEED TO 67099547 
0333- C9 9A ~—Ss_: 1580 CMP #$9A 
0335= 90 07 1590 BCC . 
0337- AS 9A 1600 LDA #$9A 
0339- 85 aD 1610 STA FAC 
033B- 20 6E 03 1620 JSR MODULO 
1630 #---(8192#SEED) MOD 67099547----- 
033E- A9 OD =: 1640.3 LDA #13 
O340- 85 AS 1650 
O342- E Hy 1660 .4 INC FAC 
O344- 20 bE 03 1670 JSR MODULO 
SBA ae tee ope 
1700 6 SEEDY 7699547—- o------------- 
O34B- A2 1710 LDX #SEED 
O34D=- AO 03 1720 LDY /SEED 
O34F- 20 2B EB 1730 JSR STORE.FAC.AT.YX. ROUNDED 
0352- 20 66 EB 1740 JSR COPY.FAC.TO.ARG $EB66 
0355- AQ B 1750 .5 LDA #FLT67 
0357- AO 0 1760 LDY /FLT67 
0359- 20 5C EA 1770 JSR FDIV.ARG.BY.YA $EA5C 
1780 #---SCALE TEST--------—--------- == 
035C- AD AQ 03 1790 LDA R 
O30F - c9 8 1800 P #362 IS RANGE BETWEEN ZERO AND ONE? 
0 l= 90 OA 1810 e eee 
1820: @iseSCAl Pena sceesoenc ooo lcecesce 
0363- AQ Ag 1830 LDA #RANGE 
Grey AO OR 1.6 Tee FRUN EAC. BY. YA $E97F 
O38 20 23 Ea 1820 JSR AS.INT $EC23 
1 it ®os- RETURN === once accesses] 
036D- 60 1880 .6 RTS 
1890 Oi eee eee ae 
1900 MODULO 
036E- AQ 00 ~=—19110 LDY #0 
0370- AS 9D —s-: 1920 LDA FAC 
0372- CO 9A 1930 CMP #$9A 
0374- 90 32 1940 BCC . < 67099547 
0376- FO 62 = 1950 BEQ . 67099547... 
0378- AO O4 1960 LDY 
O37A- 38 1970 1 SEC 
037B- AS Al 1980 LDA FAC+4 LSB 
037D- F3 BB 03 1990 SBC MAN67+3,Y 
0380- 4 2000 PHA 
0381- A5 AO —_- 2010 LDA FAC+3 
038 a Fa BA 03 2020 SBC MAN67+2,Y 
0386- 2030 PHA 
o2ade ae 29 03 5050 SBC MANG7#1,¥ 
- + 
On 82 fig S0eo PHA ' 
O38D- AS oF 2070 LDA FAC+1 
038F- F3 03 2080 SBC MAN67+0,Y 
0392- 4 2090 PHA 
0393- 90 OF 2100 BCC .2 <6 7099547 
0395- 68 2110 PLA 
0396- 85 9E ~—- 2120 STA FAC+1 
0398— 68 2130 PLA 
0399- 85 9F 2140 STA FAC+2 
039B- 6 2150 PLA 
039C- 85 AO = 2160 STA FAC+3 
039E- 68 2170 PLA 
O39F- 85 At 2180 STA FAC+4 
O3A1- 4C 2E E8 2190 JMP NORMALIZE.FAC $E82E 
O3A4~ 68 2200 .2 PLA 
O3A5- 68 2210 PLA 
O3Ab~- 68 2220 PLA 
OZA7- 68 2230 PLA 
DOGO ease tet ote ese Pane eee eas 
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1 00 00 
O3AC- 00 00 2260 RANGE .HS 81.00000000 


O3AE- 81 00 0 
9 Bi- oa Je 2270 SEED .HS 81.00000000 
el ae E6 o 2280 FLT67 .HS 9A.7FF6E6CO = 67,099,547 
0 BB- £0 2290 MAN67 .HS FFF6E6CO 
O3BC- 7F FB 73 
O3BF- 60 2300 HS 7FFB7360 


The second listing is for my 32-bit algorithm based on Knuth's 
rules. Again, lines 1210-1270 set up the USR linkage. Lines 
1360-1400 decide what kind of argument has been used. If 
negative, lines 1470-1590 prepare a new seed value. If zero, 
the previous value is re-used. If positive, the argument is 
the range. 


In this version the seed is maintained as a 32-bit integer. 
Lines 1470-1590 convert from the floating point form of the 
argument in FAC to the integer form in SEED. If the argument 
happens to be bigger than 2°32, I simply force the exponent to 
2°3 


Lines 1600-1690 form the next seed by multiplying by 314159269 
and adding 907633386. The calculation is done in a somewhat 
tricky way. Essentially it involves loading 907633386 into the 
product register, and then adding the partial products of 
314159269*seed to that register. The tricks allow me to do all 
that with a minimum of program and variable space, and I hope 
with plenty of speed. I understood it all this morning, but it 
is starting to get hazy now. If you really need a detailed 
explanation, call me some day. The modulo 2°32 part is 
automatic, because bits beyond 32 are thrown away. 


Lines 1700-1780 load the seed value into FAC and convert it to 
a floating point fraction. 


Lines 1790-1870 check the range requested. If less than 2, the 
fraction is returned as the USR result. If 2 or more, the 
fraction is multiplied by the range and integerized. 


1030 : FROM KNUTH'S "THE ART OF COMPUTER PROGRAMMING" 
19 4 ' VOLUME 2, PAGES 155-157. 
1060 -OR $300 
if P TF B. RANDOM KNUTH 

E82E- 1090 NORMALIZE.FAC EQ Bb2E 

E97F- 1100 FMUL.FAC.BY.YA EQ 

EB2B- 1110 STORE. FAC. AT. YX. ROUNDED EQ. SEB2B 

EBF2= 1120 AS.QINT EQ 

EC23- 1130 AS . INT EQ ee 

000A- 1150 USER.VECTOR -EQ $0A THRU $0C 

009D-= 1160 FAC ~EQ $9D THRU $A2 

OOA2= 1120 FAC. SIGN -EQ $A2 

OOAC- 1180 FAC. EXTENSION ~EQ $AC 

OOCA- 1190 AS.SEED -EQ $CA THRU $CD 
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0300- AQ HC =3—-:«41210 LINK LDA #$4C "JMP* OPCODE 

0302- 85 OA 1220 STA USER.VECTOR 

0304~ Ad 1230 LDA #RANDOM 

0306- 85 0B =-:'12 STA USER.VECTOR+1 

0308- AQ 0 1250 LDA /RANDOM 

030A- 89 0 1310 STA USER . VECTOR+2 
1280 OO a a ics nes cs i ct as ss ee ee rd 
1290 & R = USR (X) 
1300 ® IF X < 0 THEN RESEED WITH ABS(X 
1310 IF X = 0 THEN R = REPEAT OF PREVIOUS VALUE 
1320 ® IF 0 < X < 2 THEN GENERATE NEXT SEED AND RETURN 
1 30 & O <= R< 1 
1 A0 * IF X >= 2 THEN R = INT(RND*X) 
1360 RANDOM 

030D- A5 A2 1370 LDA FAC.SIGN CHECK FOR RESEEDING 

O30F- 30 OF 1380 BMI . a 

0311- A5 9D —«—1390 LDA FAC CHECK FOR X=0 

0313- FO 3B ~—- 1800 BEQ .6 ..-YES, REUSE LAST NUMBER 
4h10 Sess¥ <-> RANGR=-=s=—-—--.--.-... 

0315- A2 A 1420 LDX #RANGE 

03 - AO 03 1830 LDY /RANGE 

0 19- 20 25 EB 1 0 JSR STORE. FAC. AT. YX. ROUNDED $EB2B 

31C- 3A 03 iheo ®.-<-PREPARE SEED-------------~~=~ 

031F- A9 00 1470 1 LDA #0 MAKE SEED POSITIVE 

o321- 85 A2 = 1480 STA FAC.SIGN . 

0 23- Ap 9D 1490 LDA FAC LIMIT SEED TO 2732-1 

a2 - 96 08 1846 BCC . 

ee ee ee Bt ite 

032D- 20 F2 EB eke 2 JSR AS.QINT $EBF2 

0330- A2 03 1590 LDX #3 COPY FAC INTO SEED 

0332- B5 9E _—=: 1560.3 LDA FAC+1,X 

0534 9D AF 03 1570 STA SEED,2 

0336. 10 F8 1990 BPL 3 

033A- A2 00 1610 oo eg 

033C- BD AF 03 1620 .5 LDA SEED,X 

oais- Bp Bs os tuo = bk 

0345- 9D AF 03 1650 STA SEED,X 

0348- 20 73 03 1660 JSR MULTIPLY 

Sta tts tPx #h 

O34E- 90 EC _—«'1690 BCC .5 

0350- £2 05 TIO BO OE ee LATO FAC mmm mmnmnnnn 

0352- BD AE 03 436 .7 LDA FLT. SEED,X 

0355- 95 9D 1730 STA FAC,X 

o3Be- 70 ee Hsp BRL 

035C- 85 AC 1770 STA FAC. EXTENSION 

035E- 20 2E EB 1780 : scape NORMALIZE. PAC 

0361- AD AQ 03 1580 LDA RANGE 

0364 c9 82 1810 CMP #$82 Is RANGE BETWEEN ZERO AND ONE? 
1830 BeneSCALRq-o- nen we enn eee ee eee 

0368- AQ A 1870 LDA #RANGE 

036A- AO 03 1850 LDY /RANGE 

039¢~ 20 7F E9 1860 JSR FMUL.FAC.BY.YA $E£97F 

036F- 20 23 EC 1870 . west AS.INT $EC23 
1810 MULTIPLY. 

0373+ 8E C1 03 1920 STX BYTE.CNT 

0376- AO 0 1930 LDY #3 

0378- B9 BY 03 1940 .1 LDA A,Y 

037B- 9D BD 03 1950 STA MULTIPLICAND, X 

037E- 88 1960 DEY 

ne 

0382- AO 0 1390 LDY #8 

0384- D0 07. + ~=—- 2000 BNE . .. ALWAYS 
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0386- 18 2020 2 CLC DOUBLE THE MULTIPLICAND 
0387- 3E BD 03 Sake ° ROL MULTIPLICAND,X 
O38A- CA 2040 DEX 
038B- 10 FA 2050 BPL .6 
038D- 4E BC 03 2060 .2 LSR MULTIPLIER 
0390- 90 10 2070 BCC . 
0392=- AE C1 03 2080 LDX BYTE.CNT 
0395- 1 2090 CLC 
0396- BD BD 03 2100 .3 LDA MULTIPLICAND,X 
0399- gp AF 03 2110 ADC SEED,X 
039C=- 9D AF 03 2120 STA SEED, X 
039F= CA 2130 DEX 
O3A0- 10 FA 2140 BPL ser 
O3A2- AE C1 03 2150 .4 LDX BYTE.CNT 
03A5- 88 2160 DEY 
03A6- DO DE 2170 BNE .5 
03A8- 60 2180 RTS 
2190 Benne eee ere meeeoeenewoooe 
03A9= 81 00 00 
03AC=- 00 00 2200 RANGE -HS 81.00000000 
O3AE~ 80 2210 FLT. SEED ~HS 80 
O3AF= 00 00 00 
03B2=- 00 2220 SEED ~HS 00.00.00.00 
03B3= 00 2230 ~HS 00 SIGN 
03B4- 12 BS BO 
O3BB- EB Aa C ~HS 36.19.62.EB 907633386 
03BC- 2260 MULTIPLIER -BS 1 
03BD-= 2270 MULTIPLICAND .BS 4 
03C1- 2260 BYTE.CNT BS 1 
2290 Gonna CA Gb CR Hy -M Ce GE Ge Me Gb Gab Gap ey ia GE Ee Ge ap ee cas Om ew 


The third listing is cut down from the second one, to produce a 
16-bit random number. The code is very similar to the program 
above, so I will not describe it line-by-line. If you want an 
optimized version of this, the multiply especially could be 
shortened. 


1000: Sececesccececocsesmececuscaccascs 
1010 ®SAVE S.RANDOM KEYIN 
1930 ALLOWS ACCESS TO THE KEYIN RANDOM VALUE 
1050 -OR $300 
1060 # TF B.RANDOM KEYIN 
1070 fim ecnen enn eee me ewe nneeeeeeenn= 

E82E- 1080 NORMALIZE.FAC -EQ E628 

EQTF- 1090 FMUL.FAC.BY.YA EQ 

EB2B- 1100 STORE.FAC.AT. YX. ROUNDED Ea Q”§EB2B 

EBF2- 1110 AS.QINT EQ SEBE 

EC23- 1330 & AS. INT SEQ $EC23 

OOA- 1140 USER.VECTOR EQ $0A THRU $0C 

boone 1150 FAC ~EQ 9D THRU $A2 

OOA2- 1160 FAC. SIGN EQ 

OOAC- 1170 FAC. EXTENSION -EQ ne 

OO4E- iio EY. SEED -EQ $4E,4F 

0300- A9 AC 1200 LINK LDA #$4C "JMP" OPCODE 

0302- 85 OA 1210 STA USER.VECTOR 

0304— AQ OD 1220 LDA #RANDOM 

0306- 85 OB 1230 STA USER. VECTOR+1 

0308- AQ 03 12h0 LDA /RANDOM 

030A- 85 OC 1250 STA USER .VECTOR+2 

030C- 60 12 9 . RTS 
1280 # R = USR (X) 
1290 # IF X < 0 THEN RESEED WITH ABS(X) 
1300 # IF X = 0 THEN R = REPEAT OF PREVIOUS VALUE 
1340 : IFO0O<XxX< 2 THEN GE GENE RATE NEXT SEED AND RETURN 
1330 # IF X >= 2 THEN R = BT (RND®X) 
1340 822-2 eee 
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[Don's AWIle USER package set this entire "camera ready" ad! ] 


1350 RANDOM 
AS A2  ~—s- 1360 LDA FAC.SIGN CHECK FOR RESEEDING 
30 OE 1370 BMI .1 ee YES 
AS 9D ~—«—- 1380 LDA FAC CHECK FOR X=0 
FO 37. ~—- 1390 BEO . ...YES, REUSE LAST NUMBER 
100 #---x --> RANGE----------~-------- 
A2 AB 1410 LDX #RANGE 
AO 0 1420 LDY /RANGE 
20 28 EB 1430 JSR STORE.FAC.AT.YX.ROUNDED $EB2B 
1450 #---PREPARE SEED----------------- 
A900 ~=.:'1860 1 LDA #0 MAKE SEED POSITIVE 
85 A2 1470 STA FAC. SIGN : 
A5 9D ~— 1480 LDA FAC LIMIT SEED TO 2716-1 
3 as tae Se 
A9 90 ~——:1510 LDA #$90 
59D 1520 STA FAC 
20 F2 EB 1330 2 JSR AS.QINT $EBF2 
+ 
5 Mr 1590 STA KEY. SEED 
Ad Al 1560 LDA FAC+4 
85 uP 1570 STA KEY. SEED+1 
1580 #=---SEED# 19 1254 1384 3—-----------= 
A2 0 1590 .4 LDX #0 
BS 4 1600 .5 LDA KEY.SEED,X 
aos tee =| tk ee 
95 4E 1630 STA KEY.SEED,X 
20 17 03 16ho JSR MULTIPLY 
Bo ke Cdeao Bee *6 
1680 #.--LOAD SEED INTO FAC------~---- 
Ag 00 1690 6 LDA #0 
8 AO 17 0 A FAC+ 
5 At 1710 STA FAC+ 
85 A2 1720 STA FAC. SIGN 
85 AC 1730 STA FAC.EXTENSION 
49 80 i 0 LDA #$80 
D ~—«-1750 STA FAC 
A5 SE —S 1760 LDA KEY. SEED 
85 9F 1770 STA FAC+1 
5 hr 1780 LDA KEY. SEED+1 
5 9F — 1790 STA FAC+2 
20 2E E8 1800 JSR NORMALIZE. FAC 
1810 #---SCALE TEST------~------------ 
AD AB 03 1820 LDA RANGE 
cg 82” (1 30 CMP # $52 IS RANGE BETWEEN ZERO AND ONE? 
90 0A ~—_: 1840 BCC . eas 


NEW DON LANCASTER RELEASES 


Companion Diskette for Enhancing I ........++. $ 19.50 
Companion Diskette for Enhancing II .........+- $ 19.50 
Companion Diskette for Assembly Cookbook..... $ 19.50 
Applewriter™ Ie HACKER package .......e.00- $ 29.50 
Applewriter™ Ile USER package .....ccccccseee $ 29.50 
Applewriter™ Ile HIRES dump package ......... (soon) 
Absolute Ile reset mod package ......ccccscseses $ 19.50 


Vaporlock instant-sync package ....cccccccccces $ 19.50 


Oldfangled animation demo (Meyer) ......eesee- $ 9.50 
Incredible Secret Money Machine ......cccceeee $ 7.50 
Complete Lancaster book and software list ..... (free) 


SYNERGETICS 
746 First Street AWlle voice helpline 


Box 809-AAL 
Thatcher AZ, 85552 (602) 428-4073 
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1850 @icc SCN Race ee ccccceucce 
036C- AD A 1860 LDA #RANGE 
eg 30 rE E9 1860 Gen CuuLceic ay $ 
= e e ° YA E F 
0373- 20 23 EC 1890 ; ees: AS.INT $EC23 
0376- 60 1816 . RTS 
1920 peel oa see ee eee eee eee eae 
1 30 MULTIPLY 
0 1: 8E B7 03 19 0 STX BYTE.CNT 
O37A- AO 0 1950 LDY #1 
037C- B9 BO 03 1960 .1 LDA A,Y 
037F- 9D B5 0 1970 STA MULTIPLICAND, X 
0382- 88 1980 DEY 
038 3- CA 1990 DEX 
0384- 10 F6 2000 BPL . 
0386- AO 08 2010 LDY #8 
038A- 18 20h0 . CLC DOUBLE THE MULTIPLICAND 
038B- 3E BS 03 2050 2 ROL MULTIPLICAND, X 
O38R- CA 2060 DEX 
O38F- 10 FA 2070 BPL .6 
0391- 4E BY 03 2080 .2 LSR MULTIPLIER 
0394- 90 0E ~ 2090 BCC .4 
0396- AE B7 03 2100 LDX BYTE.CNT 
0399- 18 2110 CLC 
039A- BD B5 03 2120 .3 LDA MULTIPLICAND, X 
039D- 75 4E 2130 ADC KEY.SEED,X 
030F- 95 4E = 210 STA KEY.SEED,X 
O3A1- CA 2150 DEX 
O3A2- 10 F6 2160 BPL .3 
O3A4- AE B7 03 2170 .4 LDX BYTE.CNT 
O34 - 88 2180 DEY 
O3A8- DO EO 2190 BNE .5 
O3AA- 60 2200 RTS 
9910: Qe ot ee eee 
O3AB- 81 00 00 
O3AE- 00 00 2220 RANGE -HS 81.00000000 
O3B0- 4A B5 2230 A .DA /19125, #19125 
03B2- 36 13. 2240 C .DA /13843, #13643 
03B4~- 2250 MULTIPLIER -BS 1 
03B5- 2260 MULTIPLICAND BS 2 
03B7- 2270 BYTE. CNT -BS 1 


What do you do if you want even more randomness than you can 
get from one generator? You can use two together. The best 
way (for greatest randomness) is to use one to select values 
from a table produced by the other. First generate, say 50 or 
100, random values with one generator. The generate a random 
value with the second generator and use it to pick one of the 
50 or 100 values. That picked value is the first number to 
use. Then replace the picked value with a new value from the 
first generator. Pick another value randomly using the second 
generator, and-.so on. This is analogous to two people working 
together. The first person picks a bowlful at random from the 
universe. The second person picks items one at a time from the 
bowl. The first person keeps randomly picking from the 
universe to replace the items removed from the bowl by the 


second person. 


You could use the 16-bit generator to pick values from a “bowl" 
kept full by my 32-bit generator. 


Now back to those tests mentioned at the beginning. I am happy 
to report that all three of the algorithms listed above 
completely fill the hi-res screen, no holes left, eventually. 


By the way, the August 1981 AAL contained an article about the 
Integer BASIC RND function, and how to use it from assembly 
language. 
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The Apple //CrcecccccceccscccccccccsseseeseBOb Sander-Cederlof 


In August 1977 I walked into CompuShop with checkbook in hand, 
hoping to fill a void in my life by (finally) buying my own 
personal computer. I didn't know one brand from another, but 
there was a 4K Apple II running a color demo in lo-res graphics 
that caught my eye. I bought it. My toy, because I certainly 
could think of no possible way to consider it more than a toy. 
The serial number is 219, and I am using it to write this 
article. By the way, the other brands that were at CompuShop 
in 1977 are now all out of business. 


The price for 4K was $1298; I got 4K extra RAM and paid $1348 
plus sales tax. No software. No CRT. No floating point 
BASIC. No slick manuals. About 45 pages of mimeographed notes 
was the total documentation package. I had to builda 
modulator kit that afternoon so I could hook it up to my TV 
set. The only other connection which seemed of any use was the 
cassette tape, which several hundred of you may remember. The 
store gave me a cassette containing the color demo and Woz's 
Breakout game. That was all there was! Eight empty slots, and 
absolutely nothing on the market to plug into them. Not even 
enough memory for hi-res graphics, which I did not even know 
existed. Absolutely no software for sale from any vendor. 


I have spent a lot of time on this Apple. And money. And it 
is not JUST a toy any more! It has Applesoft on the 
motherboard, with 48K RAM. Slot 0 has an STB 128K RAM card 
(the best, in my opinion). All the other slots are full, but 
with what depends on the work for the day. 


Now there is the Apple //c. $1295 buys you 128K RAM, Applesoft 
BASIC, a disk drive, and ProDOS! Probably over 10,000 programs 
on the market which will run in it, and many more to come. 
Built-in interfaces including two serial ports, mouse, disk 
controller, 80-columns, many video options, and more. The most 
often purchased interfaces are all there, enough to fill five 
slots in an older Apple. They added a headphone jack and 
volume control, too; it is recessed under the left edge. Using 
it will let you work later at night without disturbing light 
Sleepers. You still get a “game” port, but it is a 9-pin 
D-socket and doubles as the mouse port. Sorry, no more 
Cassette port. A second disk drive can be added, and it costs 
Significantly less than a second //e drive. 


There are two new switches beside the RESET switch, labeled 
40/80 and Keyboard. The first switches between 40 and 80 
columns. The second selects QWERTY or Dvorak keyboard 
arrangement. Think a while of the implications to future 
generations of including THAT switch. The 40/80 switch is 
really just connected to what used to be cassette input $C060. 
You can read the switch position like the firmware does, by 
looking at the sign bit of that byte. 


Until now all Apple game ports had four analog inputs, four 
Switch outputs, and three switch inputs. The //c has only two 
analog inputs, and no switch outputs. The three switch inputs 
remain, with switch two dedicated to the mouse button. The 
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Apple Peripherals Are All We Make 
That’s Why We're So Good At It! 


MEMASTER II 


Super Music Synthesizer 


THE NEW TI 
= Improved Hardware and Software 


; SS NEW 1984 
Automatically date SG Sel a [eee eee DESIGN 

stamps files with i An official 
PRO-DOS PRO-DOS Clock 


@ Just plug it in and your programs can read the year, month, date, day, 
and time to 1 millisecond! The only clock with both year and ms. 

@ NiCad battery keeps the TIMEMASTER I! running for over ten years. 

@ Fullemulation of ALL other clocks. Yes, we emulate Brand A, BrandT, 
Brand P, Brand C, Brand § and Brand M too. It’s easy for the 
TIMEMASTER to emulate other clocks, we just drop off features. 
That's why we can emulate others, but others CAN’T emulate us. 

@ The TIMEMASTER II will automatically emulate the correct clock card 
for the software you're using. You can also give the TIMEMASTER Ila 
simple command to tell it which clock to emulate (but you'll like the 
Timemaster mode better). This is great for writing programs for those 
poor unfortunates that bought some other clock card. 

@ Basic, Machine Code, CP/M and Pascal software on 2 disks! 


@ Complete 16 voice music synthesizer on one card. Just plug it into 
your Apple, connect the audio cable (supplied) to your stereo, boot 
the disk supplied and you are ready to input and play songs. 

@ It's easy to program music with our compose software. You will start 
right away at inputting your favorite songs. The Hi-Res screen shows 
what you have entered in standard sheet music format. 

@ Now with new improved software for the easiest and the fastest 
music input system available anywhere. 

@ We give you lots of software. !n addition to Compose and Play 
programs, 2 disks are filled with over 30 songs ready to play. 


@ Eight software controlled interrupts so you can execute twoprograms @ Easy to program in Basic to generate complex sound effects. Now 
at the same time (many examples are included). your games can have explosions, phaser zaps, train whistles, death 
@ On-board timer lets you time any interval up to 48 days long down to cries. You name it, this card can do it. 
the nearest millisecond. @ Four white noise generators which are great for sound effects. 
The TIMEMASTER I! includes 2 disks with some really fantastic ime oriented @ Plays music in true stereo as well as true discrete quadraphonic. 
programs (over 4Q) including appointment book so you'll never forget to do anything @ Full control of attack, volume, decay, sustain and release. 
again. Enter your appointments up to a year in advance then forget them. Plus DOS @ Will play songs written for ALF synthesizer (ALF software will not take 
dater so it willautomatically add the date when disk files are created or modified. The dvant fall d’sf Thei f ds th : 
disk is over a $200.00 value alone— we eive the software others sell. All software : aIebC 2 a? OULCAIG STE atures: eirsoltwate sounds the same 
packages for business, data base management and communications are made to in Our synthesizer.) 
read the TIMEMASTER IL If you want the most powerful and the easiest to use (lock @ Our card will play notes from 30HZ to beyond human hearing. 
for your Apple, you want a TIMEMASTER II. @ Automatic shutoff on power-up or if reset is pushed. 


PRICE $129.00 @ Many many more features. PRICE $159.00 


Viewmaster 80 
There used to be about a dozen 80 column cards for the Apple, now 
there’s only ONE. 

TOTALLY Videx Compatible. 

80 characters by 24 lines, with a sharp 7x9 dot matrix. 

On-board 40/80 soft video switch with manual 40 column override 
Fully compatible with ALL Apple languages and software— there are 
NO exceptions. 

Low power consumption through the use of CMOS devices. 

All connections are made with standard video connectors. 

Both upper and lower case characters are standard. 

All new design (using a new Microprocessor based C.R.T. controller) 
for a beautiful razor sharp display. 

The VIEWMASTER incorporates all the features of all other 80 column 
cards, plus many new improvements. 


vat QUILT tn SHIN LY Low; POwIA eulUMN TA DOT LIGHT PIS «© 48 COLUMN ivease 
SOFTSWITC It suProar ots ri Marek IePUTS OVIRMOL CHARACTERS 


Z-80 PLUS! 


@ TOTALLY compatible with ALL CP/M software. 

@ The only Z-80 card with a special 2K “CP/M detector’ chip. 

@ Fully compatible with microsoft disks (no pre-boot required). 

@ Specifically designed for high speed operation in the Apple !fe (runs 
just as fast in the Il # and Franklin). 

@ Runs WORD STAR, dBASE II, COBOL-80, FORTRAN-80, 
PEACHTREE and ALL other CP/M software with no pre-boot. 


VIEWMASTER 179 ves YES YES YES YES YES ves YES 


@ A semi-custom I.C. and a low parts count allows the Z-80 Plus to fly SUPRTERM = MORI BO IOS Ss NS RO oD - Yrs 
thru CP/M programs at a very low power level. (We use the Z-80A at WIZARDRUS- «BORE SOF RO SNOT SEE Oe aN > 
fast 4MHZ._) VISIONBO MORE VIS YES NO NO YTS NO NO NO 

t 
‘ . OMANIVISION MORE NO VIS NO NO NO NO YES NES 
@ Does EVERYTHING the other Z-80 boards do, plus Z-80 interrupts. CAM MORE wee hee <i a Seth ae “eR 
: . 5 SSIARTERAS MORE YES YES NO NO NO YES VES NO 
Don’t confuse the Z-80 Plus with crude copies of the microsoft card. The “IGEe: MORE Ses NG ES kay <i ie AG i 


Z-80 Plus employs amuch more sophisticated and reliable design. With 
the Z-80 Plus you can access the largest body of software in existence. 
Two computers in one and the advantages of both, all atan unbelievably 


low price. PRICE $139.00 


The VIEWMASTER 80 works with all 80 column applications including CP/M, 
Pascal, WordStar, Format tl, Easywriter, Apple Writer II, VisiCalc, and all 
others. The VIEWMASTER 80 is THE MOST compatible 80 column card you 


can buy at ANY price! PRICE $179.00 


@ Expands your Apple He to 192K memory. MemoryMaster Ile 128K RAM Card 

@ Provides an 80 column text display. oe . : : . 

@ Compatible with all Apple lle 80 column and extended 80 column - en Be eNO on, ecaed at RENE TS 
card software (same physical pation Apple's 64K card). @ Documentation included, we show you how to use all 192K. 

@ Can be used as a solid state disk drive to make your PIOElams rue salad Ifyou already have Apple's 64K card, justorderthe MEMORYMASTER He with 04K and use 
to 20 times FASTER (the 64K configuration will act as halfa drive). the 64K from your old board to give you a full 128K. (The board is fully socketed so you 

@ Permits your tle to use the new double high resolution graphics. simply plug in more Chips.) 

@ Automatically expands Visicalc to 95 K storage in 80 columns! The MemoryMaster Ile with 128K $249 
64K config, is all that’s needed, 128K can take you even higher. Upgradeable MemoryMaster Ile with 64K $169 

@ PRO-DOS willuse the MemoryMaster lle as ahigh speed disk drive. Non-Upgradeable MemoryMaster Ie with 64K $149 


Our boards are tar superior to most of the Consumer clectronics made today. AILLC ‘sare in high quality sockets with mubspec. Components used throughout P.C. boards are glass- 
epoxy with gold contacts. Made in America to be the bestin the world. All products work in the APPLE TE. tL [+ and Franklin, The MemoryMaster He is [le only, Appled Engineering 
also manufactures a fullline of data acquisition and control products forthe Apple: A/D Converters and digital I/O cards. etc, Please call for more information. Allour products are fully 
tested with complete documentation and available for immediate delivery. All products are guaranteed with ano hassie THREE YEAR WARRANTY. 


Send Check or Money Order to: Call (214) 492-2027 
Texas Residents Add 5% Sales Tax APPLIED ENGINEERING 8 a.m. to 11 p.m. 7 days a week 
Add $10.00 !f Outside U.S.A. P.O. Box 798 MasterCard, Visa & C.O.D. Welcome 
Dealer inquiries Welcome Carrollton, TX 75006 No extra charge for credit cards 
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other two analog input addresses are used as single bits to 
read the mouse X and Y direction. The four output bits are now 
used to control various interrrupt modes. 


An interesting new softswitch input is at $C077. If bit 7 of 
the byte is 1, the current line being stroked on the screen is 
graphics; if 0, it is text. People like Bob Bishop, Don 
Lancaster, and Bill Budge probably already have figured out 
fantastic new tricks using this bit. 


The power supply is now in a little box that is part of the 
power cord. 115 volts AC in, 12 volts DC out. The rest of the 
supply voltages derived inside the case. There will be a 
battery pack option later. And how about an adapter for 
running in the car? 


The video output capability is phenomenal. Now you get all the 
American and European options built in. One connector gives 
you the NTSC we are all used to. Another gives you 
RF-modulated form for an American TV set. You also get RGB and 
various European standards. The 15-pin video connector also 
gives you an audio signal and various timing signals. 


The ROM in the //c is VERY different. The differences include 
serial port and mouse firmware, better interrupt handling, the 
improvements made in the new //e ROMS, no more self-test 
program, and extensions to the disassembler (monitor L-command) 
for the 65C02 chip. | 


It is getting to be quite a chore for software to distinguish 
which kind of Apple II it is in. Here is a chart showing 
Apple's official ID bytes: 


SFBB3 SFBIE SFBCO Environment 


$38 Old (Original) Apple J}[ 
SEA SAD Apple J[ Plus Autostart 
SEA S8A Apple /// Emulation 

$06 SEA Apple //e 

$06 SEO New Apple //e ROM 

$06 $00 Apple //c 


Interrupts are used extensively by the mouse firmware. A 
keyboard interrupt plus firmware implements a 128-character 
type-ahead buffer. 


All this talk about mouse support leads me to make one 
Clarification. You don't get a mouse unless you pay an extra 
$100. The firmware and interface are built-in, but the actual 
device is optional. 


By the way, besides the 16 memory chips there are and only 21 
other chips. More special chips, including IWM (Integrated Woz 
Machine, the disk controller); GLU (General Logical Unit); and 
TMG (Timing Generator). Compare the total 37 chips with about 
50 in the Macintosh, and more than 90 in the IBM PCjr. Most of 
the chips are soldered in, but a few still sit in sockets. 
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Some Interesting News 


Roger Wagner: well known to most of us as owner of 
Southwestern Data Systems, author of "Assembly Lines: The 
Book", author of several popular programs in early Apple days, 
speaker at AppleFests, and so forth. Roger is branching out. 


Last month he incorporated and changed the name of SDS to Roger 
Wagner Publishing. Along with the name change, the product 
packaging has been changed. After a poll of dealers, they 
decided to replace the plush padded binders with a new package 
design which allows customers to browse through the manuals, 
while the diskette and other package contents are securely Kept 
intact. No more shrink wrap! Simpler packaging is less 
expensive, so the prices of some products have been lowered. 
And one step further, even more significant: no more copy 
protection! 


We applaud Roger for taking this step. As I remember it, Roger 
was one of the first publishers to use any kind of software 
protection, back in the 70's. His scheme included a program on 
the master disk which allowed you to make a limited number of 
back up copies. Now Roger joins us and a handful of other 
publishers who refuse to shackle users with protected software. 


Roger has also joined forces with Val Golding (founder and 
long-time editor of Call-A.P.P.L.E.) to form Emerald City 
Publishing, Inc. Their first project is "The Apple's 
Apprentice", a magazine aimed at Apple-teens. 


‘ 


Dave Barkovitcn Associates 
2400 Whittier St, Rahway, N.J. 07065 


ing 


Available for the 
Franklin 
Available on diskette 


Apple*®ti+,ile 
For §25 


FEATURES 
Edit 6502 registers 
Trace Grephics programe 


Mini-ASSEMBLER 
MEMORY DUMP 
RAM CARD version 


(201) 499-0636 


AX Y P 8 
AA 01 00 B1 FF 
AA 01 00 B1 FF 
AA 01 00 B1 FD 
AA 01 00 B1 FB 
6D 01 00 B1 FB 


TEEPE ZELREL ERE ERE SERRE LEER SSE SE SS 


THE BARKOVITCH SST (SINGLE STEP TRACE) PROGRAM... $35 


LDA #8AA 


STA 833 


ard works in any slof 


C 


Unique dual cursor shows Hex ¢ ASCII 


3 
2 
3 
g 
3 
Pe 
3 
ac 
us 
) 
- < 
[a4 
= 
ay 
> YO 
> 
re) 
xz 
O< 
<x 
co 
Y 
<< 
- 


Super easy track/sector edit 


Add $1.50 Postage’Handling 
ORDER TODAY! 


SENO CHECK OR MONEY ORDER TO 


JSR $FD67 
JSR SFDBE 


LDA #860 
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Apple //e ROM ReviSion.....ccccccceccceess BOD Sander-Cederlof 
Dated March 21, 1984, I received a pair of 2764 ROMs and 
12-page writeup. These are preliminary versions of a new set 
predicted to be in general distribution by early next year. 


The new //e ROMS are substantially better than the current 
ones. Changes include: 


Applesoft: modified to work in 80-column mode, and with lower 
case. 


Monitor: 

* modified to work with new Mouse ICON characters; 

* modified to accept lowercase input; 

* location S1F no longer used; 

* miniassembler is back; 

* search command added; 

* IRQ handling substantially modified. 

Video Firmware (after PR#3): 

* fixed many bugs; 

* no more jagged scrolling, now smooth and 30% faster; 


* two new escape commands to enable/disable printing 
of control characters; 


* SETVID (S$FE93) now turns off 80-column mode; 
* escape-R removed. 


The new IRQ handler should finally make interrupts actually 
usable on the Apple. The old problem with location $45 is 
fixed. The settings of the various soft-switches which control 
memory mapping are saved and the machine is put into a 
cononical state. The standard IRQ return sequence will restore 
the interrupted state of all those switches. 


The total overhead from IRQ-event to your IRQ-subroutine will 
run from 250 to 300 microseconds, depending on the soft-switch 
settings. If you are in a ProDOS environment, you will have to 
add all the overhead caused by ProDOos. 


Of course, there will be new problems. ProDOS bent over 
backwards in a very strange way to solve the $45 problem with 
interrupts. Now that it is not necessary, ProDOS should be 
changed. But it can't be changed for the new and still work in 
the old, so.... The new IRQ and BRK handler also clobbers 
locations $100 and $101, which is BAD! Both those locations 
are used by Applesoft and many other programs! 
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If you think these changes will impact your work, or want to be 
involved in shaking out bugs, you might contact Developer 
Relations at Apple (408) 996-1010 and discuss the Certified 
Apple Developer program. I think it is because I am one of 
those that I received this material. 


65C02 vs the older AppleS.....ccceccccecveeeeeBOD Sander-Cederlof 


A few months ago we reported that apparently 2-MHz versions of 
the 65C02 chip worked in Apple IIs and II Plusses. (Even 1-MHz 
versions work in //e's.) Bob Stout was our source: he tried 
it, it worked, and he told us so. 


Based on Bob's good luck, Stephen Bach tried it, it did not 
work, and he told us so. Steve and Bob got together, and it 
seems that the 2-MHz parts work in some IIs and II Plusses, but 
not all. "Try it and see“ seems to be the only definitive 
answer. 


By the way, you can get the 65C02 from Hamilton/Avnet and 
several other distributors for under $15 each. The 1MHz 
version is under $10 from Western Design Center. There is no 
incentive for dealers to get into the distribution of chips 
like this, because quantity price breaks depend on volumes in 
the thousands. 


If you are having trouble finding a distributor, call Rockwell 
International's sales office; they might sell to you directly, 
point you to a distributor, or even give you a free sample. If 
not Rockwell, then try GTE or NCR, who also manufacture the 
65C02, albeit without the extra 32 instructions Rockwell 
inserted. Here are some phone numbers for Rockwell: 


Californias (714) 833-4655 
Texas: (214) 996-6500 
Illinois: (312) 297-8862 
New Jersey: (609) 596-0090 


Tokyo: (03) 265-8806 
West Germany: (089) 857-6016 
England: (Ol) 759-9911 


You might possibly find these chips at Apple dealers or repair 
centers in the near future, because it is being used in the 
Apple //c. Apple is apparently not using the Rockwell version, 
because the BYTE article about the //c says the chip has 27 new 
opcodes. This is the total count of new opcodes including the 
new addressing modes added by the 65C02 offered by NCR, GTE, 
Western Design, and others. The Rockwell version adds an 
additonal 32. Those 32 are NOT in the 65802 or 65816, so 
chasing after them will lead you into dead-end streets. 


If you are able to wait, the 65802 and 65816 far surpass.the 
65C02. You can order samples from Western DesSign Center, 
(602)962-4545, at $95 each. Originally expected in January, 
they are now targeting June 15th. 
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Decimal Floating Point Arithmetic..........eBob Sander-Cederlof 


Perhaps you have wondered why PRINT (14.9 * 10) in Applesoft 
prints 148. This and many other such seeming bugs are a very 
common idiosyncrasy in the computer world. 


Applesoft use binary floating point format for storing numbers 
and doing arithmetic. The number 14.9 is very clean in 
decimal, but it is an awful mess in binary. If you look at 
what is stored in RAM after doing X=14.9, you will find 84 6E 
66 66 66. The first byte, 84, means the remaining four should 
be understood as four bits of binary integer (the "14" of 
"14.9") and 28 bits of binary fraction (the ".9" part). The 
first bit of the second byte is zero, which means the number is 
positive. Applesoft stores the sign in this bit position, 
knowing that ALL values other than 0.0 will have a 1l-bit in 
this position of the magnitude. 


Just before doing any arithmetic on the value above, Applesoft 
will unpack it, separating the sign, binary exponent, and the 
rest. The fancy name for the rest is the “mantissa”. Writing 
out the mantissa for 14.9 we see EE 66 66 66. The first "E" 
means 14, and the .E666666 is APPROXIMATELY equal to .9. It is 
actual less than .9 by .000000066666666...forever. Since the 
number is not quite 14.9, multiplying by 10 gives not quite 
149. And taking the INT of not-quite-149 gives the CORRECT 
answer of 148. 


CORRECT, but not what you WANTED or EXPECTED. Right, Ethan? 
That is why you will find business software written in 
Applesoft is full of little fudge factors. We always need to 
multiply by enough 10's to make all pennies into integers, and 
then round up, and then truncate. 


An alternative is to use DECIMAL arithmetic. And guess what: 
the 6502 has built-in decimal arithmetic. The only trouble is 
that Applesoft does not know about it. 


I wrote an Applesoft extension package called DPFP which gives 
Applesoft 2l-digit precision, rather than the normal 9. But it 
is still binary, so you still get those round-off and 
truncation problems with clearcut decimal fractions. About two 
and a half years ago I wrote another Applesoft extension 
package called DP18. This one is DECIMAL, and gives 18-digit 
precision. Bobby Deen helped me flesh it out with full support 
for arithmetic expressions and all the math functions. 


Well, it has been hiding on my shelf long enough! I am going 
to start publishing it in AAL, a piece at a time. In this 
issue you will find the routines for addition and subtraction. 


First a word about the way DP18 stores numbers. Since 
Applesoft uses five bytes for each floating point value, and 
Since it is relatively easy to connect to Applesoft using 
multiples of five bytes, I use ten bytes for each DP18 value. 
The first byte holds the sign and exponent for the value. The 
remaining nine bytes hold 18 decimal digits, in BCD format. 
That is, each digit takes four bits. 
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The first bit of the first byte is the sign bit. Zero means 
plus, one means minus. If the whole first byte is zero, the 
whole number is zero. The remaining seven bits of the first 
byte are the decimal exponent, excess $40. The value $40 means 
ten to the zero power. $41 means 10, $42 means 100, and so on. 
$3F means .1, $3E means .01, and so on. Thus the exponent 
range is from $01 through $7F, meaning from 10°-63 through 
10°64. 


The mantissa bytes are considered to be a decimal fraction. 
The number is stored so that the most significant digit is 
always in the first nybble of the first byte, and the exponent 
is adjusted accordingly. Let's look at a few examples: 


42 14 90 00 00 00 00 00 00 00 = 14.9 

41 31 41 59 26 53 58 97 93 23 = pi 

38 50 00 00 00 00 00 00 00 00 = .000000005 
B8 50 00 00 00 00 00 00 00 00 = -.000000005 


Since listing the whole program at once is impossible, I have 
jumped right down to the lowest level so you can see how the 
elementary functions of addition and subtraction work. I put 
the origin at $0800 for this listing, but of course the final 
package will run wherever you assemble it for. Later we will 
get into I/O conversions, multiply and divide, math functions, 
print using, conversions between Applesoft and DP18 values, 
handling expressions with precedence and parentheses, and the 
linkage between DP18 and Applesoft. 


The listing shown below has two main entry points, DSUB and 
DADD. You can guess what they mean! The two values to be 
operated on will already be unpacked into DAC and ARG by the 
time DSUB or DADD is called. Note that there is one extra byte 
for each accumulator, so that series of calculations will carry 
around an extra two digits of precision to avoid rounding 
errors. Unpacking a value into DAC involves storing the 
exponent byte in DAC.SIGN and then stripping the sign bit from 
DAC .EXPONENT. 


DSUB and DADD both begin with the easiest cases, in which at 
least one of the values is zero. DSUB complements the value in 
DAC by merely toggling the sign bit, and then falls into DADD. 
In other words, ARG-DAC is the same as ARG+(-DAC). 


DADD then determines which of the two values has the larger 
exponent. If necessary, it swaps ARG and DAC: the object is 
to have the value with the larger exponent in DAC (unless they 
are the same). Then the value in ARG is shifted right N 
digits, where N is the difference in the exponents. This what 
our teachers called "lining up the decimal points". 


The subroutine which shifts ARG right N digits is rather smart. 
First, it will just fill ARG with zeros if the shift is 20 or 
more. Next, if the shift count is odd, it shifts right one 
digit position, or four bits. Then it does a direct move to 
shift the rest of the digits by N/2 bytes, and fills in with 
zero bytes on the left. 
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Addition is divided into two cases: either both arguments have 
the same sign, or they are different. If they are both the 
same, a simple addition loop is used. If the result carries 
into the next digit, DAC is shifted right one digit and a "1" 
is installed in the leftmost digit. 


Otherwise, ARG is subtracted from DAC. If both ARG and DAC had 
the same exponents, it is possible that the value in ARG is 
larger than the value in DAC. In this case the subtracion loop 
will end with a “borrow"’ status, so the result needs to be 
complemented. I complement by subtracting from zero. Note 
that the three loops just described are all performed with the 
6502 in decimal mode (the SED opcode at line 1490). CLD later 
reverts back to binary mode. After the mantissas are combined, 
the result may have one or more zero digits on the left. 
Therefore we go to a NORMALIZE subroutine. 


NORMALIZE shifts the mantissa left until a non-zero digit is in 
the leftmost digit position. It also decrements the exponent 
for each digit-shift. I tried to do the shifting involved as 
intelligently as possible. 


1000 #SAVE S.DP18 ADD & SUB 
1020 ® 18-DIGIT DECIMAL FLOATING POINT 
1030 § ADDITION AND SUBTRACTION 
0800- 1050 DAC BS 12 
0800- 1060 DAC.EXPONENT .EQ DAC 
0801- 1070 DAC. HI "EQ DAC+1 
O80A- 1080 DAC.EXTENSION .EQ DAC+10 
080B- 1090 DAC. SIGN EQ DAC+11 
080C- 1110 ARG BS 12 
080C- 1120 ARG.EXPONENT :EQ ARG 
08 16- 1140 ARG.EXTENSION .EQ ARG+10 
0817- 1150 ARG. SIGN "EQ ARG+11 
1170 SWAP. ARG. DAC 
0818- AO OB «1180 LDY #11 SWAP 12 BYTES 
081A- BO OC 08 1190 .1 LDA ARG,Y 
OB 1D- BE 00 08 1200 LDX DAC,Y 
ae | ie ec aad 
082h- 99 OC 08 1230 STA ARG,Y 
0827- 12h0 DEY 
0828- 10 FO 1250 BPL .1 
O82A- 60 1260 RTS 
1360 : SUBTRACT DAC FROM ARG 
1290 # DAC = ARG - DAC 
082B- AD 00 08 1396 DSUB LDA DAC.EXPONENT 
082E- FO EB 1320 BEQ SWAP.ARG.DAC ARG-O=ARG 
OB 30- f OB 08 1386 ae tan 
0832 8) OB 08 1350 ; STA DAC. SIGN 
1370 a ADD ARG TO DAC 
1360 ® DAC = ARG + DAC 
0838- AD OC 08 1400 DADD LDA ARG.EXPONENT 
083B- FO 34 | 1410 BEQ .3 DAC+0=DAC 
083D- 38 1420 .1 SEC COMPARE EXPONENTS 
OB 3E- AD 00 08 1430 LDA DAC. EXPONENT 
0841- FO D5 1440 BEQ SWAP.ARG.DAC ARG+O=ARG 
0843- ED 0C 08 1450 SBC ARG.EXPONENT 
0845- 30 5 1460 BMI .8 ARG IS LARGER 
0848- 20 CB 08 1470 JSR SHIFT. ARG. RIGHT.N 
O84B- F8 14.80 SED SET DECIMAL MODE 


Page 22.....Apple Assembly Line......May, 1984......Copyright (C) S-C SOFTWARE 


Appleseed is a complete computer system. It is designed using the bus 
conventions established by Apple Computer for the Apple ][. Appleseed is 
designed as an alternative to using a full Apple ][ computer system. The 
Appleseed product line includes more than a dozen items including CPU, 
RAM, EPROM, UART, UNIVERSAL Boards as well as a number of 
other compatible items. This ad will highlight the Mother board. 


BX-DE-12 MOTHER BOARD 


The BX-DE-12 Mother board is designed to be fully compatible with all of 
the Apple conventions. Ten card slots are provided. Seven of the slots are 
numbered in conformance with Apple standards. The additional three 
slots, lettered A, B and C, are used for boards which don’t require a 
specific slot number. The CPU, RAM and EPROM boards are often placed 
in the slots A, B and C. 


The main emphasis of the Appleseed system is illustrated by the Mother 
Board. The absolute minimum amount of circuitry is placed on the Mother 
Board; only the four ICs which are required for card slot selection are on 
the mother board. This approach helps in packaging (flexibility & smaller 
size), cost (buy only what you need) and repairability (isolate and fix pro- 
blems through board substitution). 


Appleseed products are made for O.E.M.s and serious industrial/scientific 
users. Send for literature on the full line of Appleseed products; and, watch 
here, each month, for additional items in the Appleseed line. 


Appleseed products are not sold through computer stores. 


Order direct from our plant in California. 
Apple is a registered trademark of Apple Computer, Inc. 


DOUGLAS ELECTRONICS 
718 Marina Blvd., San Leandro, CA 94577 © (415) 483-8770 
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O84C- AD OB 08 1490 LDA DAC.SIGN COMPARE SIGNS 
O84F- 4D 17 08 1500 EOR ARG. SIGN 
0852- 30 1 1510 BMI .4 OPPOSITE SIGNS 
1520 #---SAME SIGNS------------------- 
O854- 18 1530 CLC SAME SIGNS, JUST ADD VALUES 
0855~ AO 09 1540 LDY #9 TEN BYTES 
0857- B9 01 08 1550 2 LDA DAC.HI,Y 
O85A- 79 OD 08 1560 ADC ARG.HI,Y 
085D- 96 01 0 1570 STA DAC.HI,Y 
0860- 1580 DEY 
0861- 10 F4 1590 BPL .2 
0863- D8 1600 CLD BINARY MODE 
0864- 90 OB ‘1610 BCC .3 NO CARRY 
0866- 20 Ai 08 1620 JSR SHIFT.DAC. RIGHT. ONE 
0869- AD 01 08 1630 LDA DAC. HI 
08 6C- 99 10 16 0 ORA #$10 
O86E- 8D 01 08 1650 STA DAC.HI 
0871- 60 1660 .3 RTS 
1670 $---DIFFERENT SIGNS-------------- 
0872- 8 16 0.4 SEC SUBTRACT ARG FROM FAC 
0873- AO 09 1690 LDY #9 TEN BYTES 
08 75- BO 01 08 1700 .5 LDA DAC.HI,Y 
0878- FO OD 08 1710 SBC ARG.HI,Y 
087B- 99 01 08 1720 STA DAC.HI,Y 
087E- 1 30 DEY 
08 7F- 10 FA "7 0 BPL .5 
0881- BO 14 1750 BCS .7 NO BORROW 
0853 8 1760 SEC BORROW, SO COMPLEMENT 
0884- AO 09 1770 LDY #9 
0886- A9 00 _ ‘1780 .6 LDA #0 
0888 F9 01 08 1790 SBC DAC.HI,Y 
088B- 93 01 08 1800 STA DAC.HI,Y 
088E- 1810 DEY 
O88F- 10 F5 _ 1820 BPL .6 
0891- AD 17 08 1830 LDA ARG. SIGN 
0894- 8D OB 08 18 0 STA DAC. SIGN 
0897 D 1850 .7 CLD 
0898- 4c F2 08 1860 JMP NORMALIZE.DAC 
1870 #.--SWAP ARG & DAC, TRY AGAIN---- 
089B- 0 180 18 0 .8 JSR SWAP. ARG.DAC 
O89E- kc 3D 0 1890 JMP .1 
1910 e SHIFT DAC RIGHT ONE DECIMAL DIGIT 
1930 SHIFT. DAC. RIGHT. ONE 
O8A1- EE 00 08 19 INC DAC. EXPONENT 
O8AN- AO O8 1950 LDY #4 4 BITS RIGHT 
O8A6- HE 010 1960 1 LSR DAC. HI 
OBA9- 6E 02 08 1 79 ROR DAC. HI+1 
OBAC- 6E 03 08 1980 ROR DAC. HI+2 
O8AF- 6E 04 08 1990 ROR DAC. HI+ 
O8B2- 6E 05 08 2000 ROR DAC. HI+ 
O8B5- 6E 06 08 2010 ROR DAC. HI+5 
O8BB- 6E 07 08 2020 ROR DAC.HI+6 
O8BB- 6E 08 08 2030 ROR DAC. HI+ 
O8BE- 6E 09 08 20K0 ROR DAC. HI+ 
O8C1- 6E OA 08 2050 ROR DAC. HI+9 EXTENSION 
O8Cch- 88 2060 DEY 
O8C5- DO DF _—-2070 BNE .1 
08C7- 60 2080 RTS 
2000 Baeerenccccscenscereneeeencseeesa 
2100 * SHIFT ARG RIGHT N DIGITS 
2120 SHIFT. ARG. RIGHT.N 
O8C8- AO 09 2130 LDY SET UP FOR 10 BYTES 
O8CA- C9 1 2140 CMP #20 DON'T BOTHER IF OFF END 
o8cc- BO 1B 2150 BCS .4 JUST ENTER ZERO INTO ARG 
O8CE- 4A 2160 LSR TEST SHIFT COUNT ODD OR EVEN 
O8CF- 90 03 2170 BCC .2 EVEN 
O8D1- 20 58 09 2180 JSR SHIFT. ARG. RIGHT. ONE 
O8D4- A8 2190 .2 TAY # BYTES TO SHIFT 
O8D5- Fo 1A —s- 2200 BEQ .6 NONE 
O8D7- Q FF 2210 EOR #$FF ~- (#BYTES+1) 
O8D9- 1 2220 CLC 
O8DA- 69 0A 2230 ADC #10 9-#BYTES 
O8DC- AA 22h0 TAX 
O8DD- AO 09 2250 LDY #9 
O8DF- BD OD 08 2260 .3 LDA ARG.HI,X 


O8E2= 99 OD 08 2270 STA ARG.HI,Y 
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OSE6= CA 2290 DEX 
O8E7- 10 F6 2300 BPL 33 
O8E9=- AQ 00 2310 . 
O8E 88 OD 08 2320 .5 STA ARG.HI,Y 
O8EE- 2330 DEY 
OSEF- 10 FA 2340 BPL .5 
O8Fi- 60 2350 .6 
2360 Semwwwwn cone ne meme memee www oowee 
: : : NORMALIZE VALUE IN DAC 
3390 NORMALIZE .DAC 
OSF2=- AO 00 2400 LDY #0 
O8FH- BJ 01 08 2410 .1 LDA DAC.HI,Y SEARCH FOR FIRST NON-ZERO BYTE 
O8F7=- DO OC 2420 BNE .2 FOUND IT 
O8F9- C8 2430 INY 
OSFA- CO 0 2440 CPY #10 
OSFC- 90 F 2450 BCC .1 
O8FE- 8D 00 08 2460 STA DAC.EXPONENT NO NON-ZERO BYTES, SO 
0901- 8D OB 08 2470 STA DAC.SIGN VALUE IS ZERO 
0904- 60 ate ; RTS 
0905- 98 2500 .2 TYA TEST BYTE COUNT 
0906- FO 1E 2510 BEQ .5 FIRST BYTE IS NON-ZERO 
0908- A2 00 2520 LDX #0 POINT X AT FIRST BYTE 
O90A- B9 01 08 2530 .3 LDA DAC.HI,Y 
O90D- 9D 01 08 25 STA DAC.HI,X 
0910- E 2550 INX 
0911- C8 2560 INY 
0912= CO Of 2570 CPY #10 
0914= 90 F $200 ; BCC . 
03 18- AQ 00 3800 LDA #0 FILL REST OF DAC WITH ZEROES 
0918- 9D 01 08 2610 .4 STA DAC.HI,X 
091B- CE 00 08 2620 DEC DAC.EXPONENT ADJUST EXPONENT 
091E- CE 00 08 26 30 DEC DAC.EXPONENT FOR SHIFT DISTANCE 
21- E8 0 INX 
O0922=- EO OA 2050 CPX #10 
092h- 90 F2 epee : BCC .4 
26- AD 01 08 2680 .5 LDA DAC.HI SEE IF NEED ONE-DIGIT SHIFT 
29- 29 FO 2690 AND #$F0 
092B- DO 06 2700 BNE . NO NYBBLE SHIFT NEEDED 
092D- CE 00 08 2710 DEC DAC. EXPONENT 
0930- 20 34 09 2720 JSR SHIFT. DAC. LEFT. ONE 
0933- 60 $f . 6 RTS 
2750 SHIFT.DAC.LEFT.ONE 
Og 3¢- AO 04 2760 LDY 
0936- OE OA 08 2770 .1 ASL DAC. EXTENSION 
0939=- 2E 09 08 2780 ROL DAC.HI+8 
093C= 2E 08 08 2790 ROL DAC.HI+ 
ORE. 2E 03 2900 ROL DAC.HI+ 
O942=- 2E 08 2810 ROL DAC.HI+ 
0945- 2E 05 08 2820 ROL DAC.HI+ 
O948- 2E 04 08 2830 ROL DAC.HI+3 
O94B- 2E 03 08 2840 ROL DAC.HI+2 
OONE- 2E 02 08 2850 ROL DAC.HI+1 
0951=- 2E 01 08 2860 ROL DAC.HI 
0954— 88 2870 DEY 
ee O DF 2880 BNE .1 
0957= 60 2890 RTS 
2900 fawnenn nnn nnn nnn nnn eee 
es # SHIFT ARG RIGHT ONE DECIMAL DIGIT 
2930 SHIFT.ARG. RIGHT.ONE 
0958- AO 04 2940 LDY #4 
5A- 4E OD 08 2950 .1 LSR ARG.HI 
O323- E OE 08 2960 ROR ARG.HI+1 
0960- 6E OF 08 2 fe ROR ARG.HI+2 
09 63- 6E 10 08 ROR ARG.HI+ 
0960- 6E 11 08 2990 ROR ARG.HI+ 
0969- 6E 12 08 3000 ROR ARG.HI+ 
096C- 6E 13 08 3010 ROR ARG.HI+ 
O96F- 6E 14 08 3020 ROR ARG.HI+ 
0972=- 6E 15 08 3030 ROR ARG.HI+ 
0975- 6E 16 08 3040 ROR ARG.HI+9 EXTENSION 
0978- 8 3050 DEY 
0979= DO DF 060 BNE .1 
097B- 60 070 RTS 
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What That Code 016168 bee eeaed 6604S S65 we ewe DOU Sander-Cederlof 


Way back in August 1981 I published a short article by John 
Broderick titled "What Does This Code Do?" Well, John never 
did tell us. But in the May 1984 Nibble, page 115, he finally 
has let the cat out of the bag. I think this article has 
probably been banging around the Nibble office for some time 
now, because John hasn't done anything with Apple's in quite a 
while. He developed a super fast accounting program in Apple 
II assembly language, then re-wrote the whole thing for the 
Sage 68000-based system. Last I heard he was in the IBM world. 


The code he gave us three years ago was five bytes long: 


BRK 
PLA 
PLA 
PLA 
RTS 


As published in Nibble, it is a little longer: 


BREAK BRK 


JSR S$FF3F 


Boiling it all down, John used this code during debugging 
sessions. By putting a JSR to the 8-byte program he can effect 
a clean breakpoint. Clean, in that he can use the monitor "G" 
command to continue execution after the BRK. 


When JSR BREAK is executed, the BRK opcode will send Apple into 
the monitor and display the five registers. Their contents 
will have been saved at $45 thru $49. The address of the first 
PLA will also be saved. Typing the monitor "G" command will 
continue execution at that PLA. The two PLA's will pop off the 
return address the G command put on the stack, leaving it as it 
was before the BRK. The JSR SFF3F will restore the A-register, 
which the two PLA's clobbered. The the RTS will return right 
after the JSR BREAK which started this paragraph. 


The original five-byte version was both confusing and 
erroneous. Confusing, because the PLA immediately after the 
BRK is never executed. BRK seems like a two-byte opcode to the 
6502, so the saved address skips over the following byte. 
Erroneous, because the A-register has been changed by the time 
the RTS is executed. I think I would amend both of his 
versions to this: 


BREAK BRK 
NOP 
PLA 
PLA 
LDA $45 
RTS 
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Making a Map of DifferenceS.......eeeeeeee+eeBOb Sander-Cederlof 


Many times I have had two versions of the same program, and 
wondered where the differences might be. 


For example, where are the differences between DOS 3.2 and 3.3, 
or between the various releases of DOS 3.3? And now that Apple 
has sent out some pre-releases of a new set of CDEF ROMs for 
the //e, where are the differences between these and the 
current //e ROMs? 


I have always used the monitor V command to find them. By 
doing it a small piece at a time, I can pinpoint the changes. 
Then I turn on my printer and use the L command to document the 
new version wherever there are differences. But the piecemeal 
use of the V command wastes a lot of time. I wish I had some 
way Of printing a complete map of all-the differences.... 


What if I had a command which would compare two areas of 
memory, and print a map of differences? I could use a "." to 
represent matching locations, and a "*" to represent those that 
do not match. I could print either 32 or 64 per line: 32 ona 
40-column screen, 64 on an 80-column screen or printer. Then I 
could tell at a glance where all changes had occurred! 


I looked at the October 1981 issue of AAL to find out how to 
use the control-Y monitor command to add a new monitor feature. 
Then I looked in the listing of the monitor ROM (in my old 
"red" Apple Reference Manual) at the code for the V command and 
the command which prints a range of memory. 


The program on the next page is the result. 


Lines 1150-1190 set up the monitor control-Y vector. Booting 
DOS stores a branch which effectively makes the control-Y 
command do nothing. Storing the address of a real program 
there allows you to add your own commands to the monitor. Once 
installed, typing a control-Y into the monitor will execute the 
program named DIFFERENCES. 


When we get there, if we typed a full length monitor command of 
the form "addressl<address2.address3°Yy" (by "“"“Y" I mean 
control-Y), all three of the addresses will have been converted 
to binary and stored in some standard locations. Addressl will 
be in $42 and $43, address2 in $3C and $3D, and address3 in $3E 
and $3F. We will interpret the addresses to mean to compare 
the block of memory beginning at addressl with the block 
running from address2 through address3. 


Line 1220 prints a carriage return, the current address value 
in $3C and $3D, and a dash. Lines 1230-1280 compare the bytes 
at corresponding positions in the two blocks of memory, and 
select either a "." or a “**" accordingly. Line 1290 prints the 
selected character. 


Lines 1300-1310 increment the two base addresses to point to 
the next byte in both memory blocks. The new address2 is also 
compared to address3 to see if we are finished yet. 
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Lines 1320-1350 check to see if we have printed all 32 on the 
current screen line. If not, back to .1 to print the next one. 
Otherwise, all the way back to print a new address and dash, 
starting a new line. If you want 64 bytes per line, change the 
mask in line 1330 from #S1F to #$3F. You might want to have 
the program check to see whether 80-columns is turned on or 
not, and automatically select #S1F or #$3F accordingly. You 
could also check to see if the output hook at $36, 37 is 
pointing at a printer, and use the longer lines. 


Experiment. You'll learn a lot and have a lot of fun at the 
same time! 


1000 SAVE S.DIFFERENCES 


1010. Base ss canon eae eer cetasscecs 
1020 ® DISPLAY MAP OF DIFFERENCES 
1030 ° IN TWO MEMORY REGIONS 
10 0 ® ADR1<ADR2. ADR3*Y 
wee RS a 
0042- 1090 AN EQ 285° aE 
FCB4- 1110 MON.NXTAS .EQ $FCB4 
FD92- 1120 MON.PRA1 .EQ $FD92 
FDED- 1130 MON.COUT — .EQ $FDED 
G490- 48 08 on Tiee SETUP Lb rane 
0805- A9 0 1170 LDA /DIFFERENCES 
0807- 8D FA 03 1180 STA $3FA 
O80A- 60 1190 . RTS 
1210 DIFFERENCES 
O80B- 20 92 FD 1220 JSR MON.PRA1 PRINT CR, ADDRESS AND *-" 
O80E- AO 00 1230 1 LDY COMPARE TWO BYTES 
a ae ae Ste 
0814— FO 01 1260 BEQ .2.- SAME, SELECT FIRST CHAR 
0816- C8 1270 INY DIFF, SELECT 2ND CHAR 
0817- BO 2B 08 1280 .2 LDA CHARS,Y GET DISPLAY CHAR 
081A- 20 ED FD 1290 JSR MON.COUT PRINT SAME OR DIFF CHAR 
08 1D- 20 Bu FC 1300 JSR MON .NXTA4 NEXT ADDRESS AND TEST 
0822- A5 3C 1320 LDA A CHECK FOR FULL LINE 
O82h- 29 iF 30 AND #$1F OF 32 
0826- DO E6 13 0 BNE . .eeFULL YET 
0828- FO E1 1350 BEQ DIFFERENCES ...FULL 
O82A- 60 1300 3 RTS 
O82B- AE AA 1380 ¢ CHARS .AS -/.8/ “SAME AND DIFF CHARS 
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